﻿<!--#include file="Include/base.asp"-->
<!--#include file="../Include/Md5.asp"-->
<%
echo "<!DOCTYPE html>" & vbCrLf
echo "<head>" & vbCrLf
echo "<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & vbCrLf
echo "<meta name='viewport' content='width=device-width, initial-scale=1, maximum-scale=1'>" & vbCrLf
echo "<meta name='apple-mobile-web-app-status-bar-style' content='black'>" & vbCrLf
echo "<meta name='apple-mobile-web-app-capable' content='yes'>" & vbCrLf
echo "<meta name='format-detection' content='telephone=no'>" & vbCrLf
echo "<title>欢迎安装使用WangKaiCMS企业管理系统</title>" & vbcrlf
echo "<link href=""Css/Style.css"" rel=""stylesheet"" type=""text/css"" />" & vbcrlf
echo "<script type=""text/javascript"" src=""Js/jquery.js""></script>" & vbcrlf
echo "<script type=""text/javascript"" src=""Js/base.js""></script>" & vbcrlf
echo "<script type='text/javascript' src='../Dialog/main.js'></script>" & vbCrLf
echo "</head>" & vbcrlf
echo "<body>" & vbcrlf
echo "<div id=""header"">" & vbCrlf
echo "    <div class=""logo""></div>" & vbCrlf
echo "    <div class=""official""><img src=""Images/home.gif"" /><a href=""http://www.kaixin100.cn/"" target=""_blank"">官方网站</a></div>" & vbCrlf
echo "</div>" & vbCrlf
if checkinstall then
	echo "<div id=""step"">" & vbCrlf
	echo "  <div class=""installstep"">" & vbCrlf
	echo "    <ul>" & vbCrlf
	echo "      <li class=""step1""><span class=""active""><span><span>1.安装协议</span></span></span></li>" & vbCrlf
	echo "      <li class=""step2""><span><span><span>2.环境检测</span></span></span></li>" & vbCrlf
	echo "      <li class=""step3""><span><span><span>3.程序配置</span></span></span></li>" & vbCrlf
	echo "      <li class=""step4""><span><span><span>4.安装结果</span></span></span></li>" & vbCrlf
	echo "    </ul>" & vbCrlf
	echo "  </div>" & vbCrlf
	echo "</div>" & vbCrlf
	echo "<div class=""m_ctr"">" & vbcrlf
	echo "    <div class=""t_left""></div>" & vbcrlf
	echo "    <div class=""t_mid"">&nbsp;&nbsp;WangKaiCMS企业管理系统使用许可协议</div>" & vbcrlf
	echo "    <div class=""t_right""></div>" & vbcrlf
	echo "    <div class=""m_mid"">" & vbcrlf
	echo "        <div id=""step1_main"">" & vbcrlf
	echo "            <p class=""red"">程序已安装过，请勿重复安装。</p>" & vbcrlf
	echo "            <p>如果需要重新安装，请手工删除Install目录下的“Install.lock”文件。</p>" & vbcrlf
	echo "        </div>" & vbcrlf
	echo "        <div id=""step1_btn""><button name=""noagree"" type=""button"" class=""no btn blue"" style=""margin-left:300px;"">返回</button></div>" & vbcrlf
	echo "    </div>" & vbcrlf
	echo "    <div class=""m_foot""></div>" & vbcrlf
	echo "</div>" & vbcrlf
	response.end()
end if
dim act:act=trim(request.form("act"))
select case act
	case "2":step2
	case "3":step3
	case "4":step4
	case else:step
end select

sub step()
	echo "<form method=""post"" action=""Index.asp"">" & vbcrlf
	echo "<input type=""hidden"" name=""act"" value=""2"" />" & vbcrlf
	echo "<div id=""step"">" & vbcrlf
	echo "    <div class=""installstep"">" & vbcrlf
	echo "        <ul>" & vbcrlf
	echo "            <li class=""step1""><span class=""active""><span><span>1.安装协议</span></span></span></li>" & vbcrlf
	echo "            <li class=""step2""><span><span><span>2.环境检测</span></span></span></li>" & vbcrlf
	echo "            <li class=""step3""><span><span><span>3.程序配置</span></span></span></li>" & vbcrlf
	echo "            <li class=""step4""><span><span><span>4.安装结果</span></span></span></li>" & vbcrlf
	echo "        </ul>" & vbcrlf
	echo "    </div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "<div class=""m_ctr"">" & vbcrlf
	echo "    <div class=""t_left""></div>" & vbcrlf
	echo "    <div class=""t_mid"">&nbsp;&nbsp;WangKaiCMS企业管理系统使用许可协议</div>" & vbcrlf
	echo "    <div class=""t_right""></div>" & vbcrlf
	echo "    <div class=""m_mid"">" & vbcrlf
	echo "        <div id=""step1_main"">" & vbcrlf
	echo "            <iframe src=""license.html"" name=""license"" width=""100%"" marginwidth=""0"" height=""480"" marginheight=""0"" scrolling=""no"" frameborder=""0"" id=""license"" allowTransparency=""true""></iframe>" & vbcrlf
	echo "        </div>" & vbcrlf
	echo "        <div id=""step1_btn""><button name=""agree"" type=""submit"" class=""btn blue"" style=""margin-left:300px;"">接受协议</button>&nbsp;&nbsp;<button name=""noagree"" type=""button"" class=""no btn blue"">不同意</button></div>" & vbcrlf
	echo "    </div>" & vbcrlf
	echo "    <div class=""m_foot""></div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "</form>" & vbcrlf
end sub

sub step2
	echo "<form method=""post"" action=""Index.asp"">" & vbcrlf
	echo "<input type=""hidden"" name=""act"" value=""3"" />" & vbcrlf
	echo "<div id=""step"">" & vbcrlf
	echo "	<div class=""installstep"">" & vbcrlf
	echo "		<ul>" & vbcrlf
	echo "			<li class=""step1""><span class=""active""><span><span>1.安装协议</span></span></span></li>" & vbcrlf
	echo "			<li class=""step2""><span class=""active""><span><span>2.环境检测</span></span></span></li>" & vbcrlf
	echo "			<li class=""step3""><span><span><span>3.程序配置</span></span></span></li>" & vbcrlf
	echo "			<li class=""step4""><span><span><span>4.安装结果</span></span></span></li>" & vbcrlf
	echo "		</ul>" & vbcrlf
	echo "	</div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "<div class=""m_ctr"">" & vbcrlf
	echo "    <div class=""t_left""></div>" & vbcrlf
	echo "    <div class=""t_mid"">&nbsp;&nbsp;WangKaiCMS企业管理系统环境检测</div>" & vbcrlf
	echo "    <div class=""t_right""></div>" & vbcrlf
	echo "    <div class=""m_mid"">" & vbcrlf
	echo "        <div id=""step1_main"">" & vbcrlf
	echo "          <div id=""body"">" & vbCrlf
	echo "            <h2>读写权限</h2>" & vbCrlf
	echo "            <ul>" & vbCrlf
	echo "              <li>权限检查：根目录 <em id=""lever_0""></em></li>" & vbCrlf
	echo "              <li>权限检查：DataBase 目录 <em id=""lever_1""></em></li>" & vbCrlf
	echo "              <li>权限检查：Upload 目录 <em id=""lever_2""></em></li>" & vbCrlf
	echo "              <li>权限检查：Templates 目录 <em id=""lever_3""></em></li>" & vbCrlf
	echo "            </ul>" & vbCrlf
	echo "          <h2>必选组件</h2>" & vbCrlf
	echo "            <ul>" & vbCrlf
	echo "              <li>Microsoft.Xmlhttp <em id=""lever_4""></em></li>" & vbCrlf
	echo "              <li>Scripting.FileSystemObject <em id=""lever_5""></em></li>" & vbCrlf
	echo "              <li>Adodb.Stream <em id=""lever_6""></em></li>" & vbCrlf
	echo "              <li>Scripting.Dictionary <em id=""lever_7""></em></li>" & vbCrlf
	echo "            </ul>" & vbCrlf
	echo "            <h2>可选组件</h2>" & vbCrlf
	echo "            <ul>" & vbCrlf
	echo "              <li>Persits.Jpeg <em id=""lever_8""></em></li>" & vbCrlf
	echo "              <li>Jmail.Message <em id=""lever_9""></em></li>" & vbCrlf
	echo "              <li>Cdo.Message <em id=""lever_10""></em></li>" & vbCrlf
	echo "            </ul>" & vbCrlf
	echo "            <h2>图标说明</h2>" & vbCrlf
	echo "            <img src=""images/ok.gif"" /> 表示支持　<img src=""images/err.gif"" /> 表示不支持或没有权限" & vbCrlf
	echo "          </div>" & vbCrlf
	echo "        </div>" & vbcrlf
	echo "        <div id=""step1_btn""><button name=""pre"" type=""button"" class=""pre btn blue"" style=""margin-left:300px;"">上一步</button>&nbsp;&nbsp;<button name=""next"" id=""next"" type=""submit"" class=""btn blue"" disabled=""disabled"">下一步</button></div>" & vbcrlf
	echo "    </div>" & vbcrlf
	echo "    <div class=""m_foot""></div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "</form>" & vbcrlf
end sub

sub step3
	echo "<form method=""post"" action=""Index.asp"" onSubmit=""return checkdb(this)"">" & vbcrlf
	echo "<input type=""hidden"" name=""act"" value=""4"" />" & vbcrlf
	echo "<div id=""step"">" & vbcrlf
	echo "	<div class=""installstep"">" & vbcrlf
	echo "		<ul>" & vbcrlf
	echo "			<li class=""step1""><span class=""active""><span><span>1.安装协议</span></span></span></li>" & vbcrlf
	echo "			<li class=""step2""><span class=""active""><span><span>2.环境检测</span></span></span></li>" & vbcrlf
	echo "			<li class=""step3""><span class=""active""><span><span>3.程序配置</span></span></span></li>" & vbcrlf
	echo "			<li class=""step4""><span><span><span>4.安装结果</span></span></span></li>" & vbcrlf
	echo "		</ul>" & vbcrlf
	echo "	</div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "  <div class=""m_ctr"">" & vbcrlf
	echo "    <div class=""t_left""></div>" & vbcrlf
	echo "    <div class=""t_mid"">&nbsp;&nbsp;初始化系统</div>" & vbcrlf
	echo "    <div class=""t_right""></div>" & vbcrlf
	echo "    <div class=""m_mid"">" & vbcrlf
	echo "        <div id=""step2_main"">" & vbcrlf
	echo "            <div id=""body"">" & vbcrlf
	echo "                <h1>数据库配置</h1>" & vbcrlf
	echo "                <ul>" & vbcrlf
	echo "                    <li><span>数据库类型：</span>" & vbcrlf
	echo "                    <input type=""radio"" value=""0"" name=""t0"" id=""data01"" checked=""checked"" /><label for=""data01"">Access</label>" & vbcrlf
	echo "                    <input type=""radio"" value=""1"" name=""t0"" id=""data02"" /><label for=""data02"">Mssql</label></li>" & vbcrlf
	echo "                    <li class=""access""><span>数据库名称：</span><input type=""text"" id=""t1"" name=""t1"" class=""text_input"" value=""#"&getrnd(5)&""" />.mdb</li>" & vbcrlf
	echo "                    <li class=""mssql dis""><span>数据库IP：</span><input type=""text"" id=""t2"" name=""t2"" class=""text_input"" value=""(local)"" /></li>" & vbcrlf
	echo "                    <li class=""mssql dis""><span>数据库名：</span><input type=""text"" id=""t3"" name=""t3"" class=""text_input"" value=""WangKai_Data"" /></li>" & vbcrlf
	echo "                    <li class=""mssql dis""><span>数据库用户名：</span><input type=""text"" id=""t4"" name=""t4"" class=""text_input"" value=""sa"" /></li>" & vbcrlf
	echo "                    <li class=""mssql dis""><span>数据库密码：</span><input type=""text"" id=""t5"" name=""t5"" class=""text_input"" value="""" /></li>" & vbcrlf
	echo "                </ul>" & vbcrlf
	echo "                <h1>网站配置</h1>" & vbcrlf
	echo "                <ul>" & vbcrlf
	echo "                    <li><span>网站目录：</span><input type=""text"" size=""30"" id=""t6"" name=""t6"" class=""text_input"" value="""&get_sys_dir()&""" /></li>" & vbcrlf
	echo "                    <li><span>网站名称：</span><input type=""text"" size=""30"" id=""t7"" name=""t7"" class=""text_input"" value=""Kaixin100网络工作室"" /></li>" & vbcrlf
	echo "                    <li><span>网站标题：</span><input type=""text"" size=""30"" id=""t8"" name=""t8"" class=""text_input"" value=""崭新的web概念 全新的seo体验"" /></li>" & vbcrlf
	echo "                    <li><span>网站网址：</span><input type=""text"" size=""30"" id=""t9"" name=""t9"" class=""text_input"" value=""http://www.kaixin100.cn/"" /></li>" & vbcrlf
	echo "                    <li><span>网站META关键词：</span><textarea name=""t10"" cols=""60"" rows=""5"" id=""t10"">网站建设,域名注册,虚拟主机,企业邮箱,多媒体设计,网络推广,网络营销策划北京网站建设,网站建设,空间,域名,推广,网站设计,网站制作</textarea></li>" & vbcrlf
	echo "                    <li><span>网站META网页描述：</span><textarea name=""t11"" cols=""60"" rows=""5"" id=""t11"">网站建设,域名注册,虚拟主机,企业邮箱,多媒体设计,网络推广,网络营销策划北京网站建设,网站建设,空间,域名,推广,网站设计,网站制作</textarea></li>" & vbcrlf
	echo "                    <li><span>登陆验证码：</span><input type=""text"" size=""30"" id=""t12"" name=""t12"" class=""text_input"" value=""admin888"" /></li>" & vbcrlf
	echo "                    <li><span>后台目录名：</span><input type=""text"" size=""30"" id=""t13"" name=""t13"" class=""text_input"" value=""Admin"" /></li>" & vbcrlf
	echo "                </ul>" & vbcrlf
	echo "                <h1>管理员配置</h1>" & vbcrlf
	echo "                <ul>" & vbcrlf
	echo "                    <li><span>管理账户：</span><input type=""text"" size=""30"" id=""t14"" name=""t14"" class=""text_input"" value=""admin"" /></li>" & vbcrlf
	echo "                    <li><span>管理密码：</span><input type=""text"" size=""30"" id=""t15"" name=""t15"" class=""text_input"" value=""admin888"" /></li>" & vbcrlf
	echo "                </ul>" & vbcrlf
	echo "            </div>" & vbcrlf
	echo "        </div>" & vbcrlf
	echo "        <div id=""step1_btn""><button name=""pre"" type=""button"" class=""pre btn blue"" style=""margin-left:300px;"">上一步</button>&nbsp;&nbsp;<button type=""submit"" class=""btn blue"">安装</button></div>" & vbcrlf
	echo "    </div>" & vbcrlf
	echo "    <div class=""m_foot""></div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "</form>" & vbcrlf
end sub

sub step4
	'获取用户配置
	dim success:success=0
	dim t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15
	t0=trim(request.form("t0"))
	t1=trim(request.form("t1"))
	t2=trim(request.form("t2"))
	t3=trim(request.form("t3"))
	t4=trim(request.form("t4"))
	t5=trim(request.form("t5"))
	t6=trim(request.form("t6"))
	t7=trim(request.form("t7"))
	t8=trim(request.form("t8"))
	t9=trim(request.form("t9"))
	t10=trim(request.form("t10"))
	t11=trim(request.form("t11"))
	t12=trim(request.form("t12"))
	t13=trim(request.form("t13"))
	t14=trim(request.form("t14"))
	t15=trim(request.form("t15"))
	if t0=0 then
		if t1="" then
			alert "数据库名称不能为空"
		end if
	else
		if t2="" then
			alert "数据库IP不能为空"
		end if
		if t3="" then
			alert "数据库名不能为空"
		end if
		if t4="" then
			alert "数据库用户名不能为空"
		end if
		if t5="" then
			alert "数据库密码不能为空"
		end if
	end if
	if t6="" then
		alert "网站目录不能为空"
	end if
	if t7="" then
		alert "网站名称不能为空"
	end if
	if t8="" then
		alert "网站标题不能为空"
	end if
	if t9="" then
		alert "网站网址不能为空"
	end if
	if t10="" then
		alert "网站META关键词不能为空"
	end if
	if t11="" then
		alert "网站META网页描述不能为空"
	end if
	if t12="" then
		alert "登陆验证码不能为空"
	end if
	if t13="" then
		alert "后台目录名不能为空"
	end if
	if t14="" then
		alert "管理账户不能为空"
	end if
	if t15="" then
		alert "管理密码不能为空"
	end if
	echo "<div id=""step"">" & vbcrlf
	echo "	<div class=""installstep"">" & vbcrlf
	echo "		<ul>" & vbcrlf
	echo "			<li class=""step1""><span class=""active""><span><span>1.安装协议</span></span></span></li>" & vbcrlf
	echo "			<li class=""step2""><span class=""active""><span><span>2.环境检测</span></span></span></li>" & vbcrlf
	echo "			<li class=""step3""><span class=""active""><span><span>3.程序配置</span></span></span></li>" & vbcrlf
	echo "			<li class=""step4""><span class=""active""><span><span>4.安装结果</span></span></span></li>" & vbcrlf
	echo "		</ul>" & vbcrlf
	echo "	</div>" & vbcrlf
	echo "</div>" & vbcrlf
	echo "  <div class=""m_ctr"">" & vbcrlf
	echo "    <div class=""t_left""></div>" & vbcrlf
	echo "    <div class=""t_mid"">&nbsp;&nbsp;安装结果</div>" & vbcrlf
	echo "    <div class=""t_right""></div>" & vbcrlf
	echo "    <div class=""m_mid"">" & vbcrlf
	echo "        <div id=""step2_main"">" & vbcrlf
	echo "            <div id=""body"">" & vbcrlf
	echo "<p>正在安装</p>"
	flushs
	on error resume next
	dim dataok:dataok=0
	if t0=0 then
		'删除数据库
		dim Fso,theFolder,theFile,GetExt
		set Fso = server.createobject("Scripting.FileSystemObject")
		Set theFolder = Fso.GetFolder(Server.MapPath("../DataBase"))
		For Each theFile In theFolder.Files
			GetExt = Right( theFile.name, Len(theFile.name) - InStrRev(theFile.name, ".") + 1 )
			If LCase(GetExt) = ".mdb" Then
				If t1&".mdb" <> theFile.name Then
					theFile.Delete True
				End If
			End If
		Next
		'创建数据库
		dim db
		set db=Server.CreateObject("ADOX.Catalog")
			call db.create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../DataBase/"&t1&".mdb"))
		set db=nothing
		if err then
			if err.number="-2147217897" then
				dataok=1
			else
				echo "<p class=""red"">无法创建Access数据库，具体原因为："&err.description&"</p>"
				flushs
				echo "<p>安装失败</p>"
				flushs
			end if
			err.clear
		else
			echo "<p>Access数据库创建成功</p>"
			flushs
			dataok=1
		end if
	else
		dataok=1
	end if
	'链接数据库
	dim dataconnent:dataconnent=0
	if dataok=1 then
		dim connstr,conn
		if t0=0 then
			connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../DataBase/"&t1&".mdb")
		else
			connstr="Provider=Sqloledb;User ID="&t4&";Password="&t5&";Initial CataLog="&t3&";Data Source="&t2&";"
		end if
		set conn=server.createobject("adodb.connection")
		conn.open connstr
		if err then
			echo "<p class=""red"">无法链接数据库，具体原因为："&err.description&"</p>"
			flushs
			echo "<p>安装失败</p>"
			flushs
			err.clear
		else
			echo "<p>数据库链接成功</p>"
			flushs
			dataconnent=1
		end if
	end if
	
	'创建数据库表
	dim tableok:tableok=0
	if dataconnent=1 then
		dim sql
		if t0=0 then
			sql=loadfile("Sql/access.sql")
		else
			sql=loadfile("Sql/mssql.sql")
		end if
		dim s,arr
		arr=split(sql,vbcrlf)
		for s=0 to ubound(arr)
			if len(arr(s)) > 6 then
				conn.execute(arr(s))
				if err then
					if err.number<>"-2147217900" then
						echo err.description&"<br>"
					end if
					err.clear
				end if
			end if
		next
		echo "<p>数据表创建成功</p>"
		flushs
		tableok=1
	end if
	
	dim congigok:congigok=0
	if tableok=1 then
		load_config conn,t7,t8,t9,t10,t11,t13,Encryptstr(t12)
		load_menu_xml conn
		load_model_xml conn
		load_city_xml conn
		load_count conn
		load_dictionary_xml conn
		load_moban_xml conn
		load_pinyin_xml conn
		load_group_xml conn
		load_admin conn,t14,Encryptstr(t15)
		'保存配置文件
		dim RegEx
		dim rule:rule=loadfile(t6&"Include/Conn.asp")
		Set RegEx = New RegExp
		RegEx.Pattern = "Const SystemDatabaseType = [\d+\$]+"
		RegEx.IgnoreCase = True
		RegEx.Global = True
		rule = RegEx.Replace(rule,"Const SystemDatabaseType = "&t0&"")
		RegEx.Pattern = "Const InstallDir = ""[^""]*"""
		RegEx.IgnoreCase = True
		RegEx.Global = True
		rule = RegEx.Replace(rule,"Const InstallDir = """&t6&"""")
		RegEx.Pattern = "Const InstallCookies = ""[^""]*"""
		RegEx.IgnoreCase = True
		RegEx.Global = True
		rule = RegEx.Replace(rule,"Const InstallCookies = """&getrnd(5)&"""")
		if t0=0 then
			RegEx.Pattern = "Const AccessDB = ""[^""]*"""
			RegEx.IgnoreCase = True
			RegEx.Global = True
			rule = RegEx.Replace(rule,"Const AccessDB = ""DataBase/"&t1&".mdb""")
		else
			RegEx.Pattern = "Const SqlUsername = ""[^""]*"""
			RegEx.IgnoreCase = True
			RegEx.Global = True
			rule = RegEx.Replace(rule,"Const SqlUsername = """&t4&"""")
			RegEx.Pattern = "Const SqlPassword = ""[^""]*"""
			RegEx.IgnoreCase = True
			RegEx.Global = True
			rule = RegEx.Replace(rule,"Const SqlPassword = """&t5&"""")
			RegEx.Pattern = "Const SqlDatabaseName = ""[^""]*"""
			RegEx.IgnoreCase = True
			RegEx.Global = True
			rule = RegEx.Replace(rule,"Const SqlDatabaseName = """&t3&"""")
			RegEx.Pattern = "Const SqlHostIP = ""[^""]*"""
			RegEx.IgnoreCase = True
			RegEx.Global = True
			rule = RegEx.Replace(rule,"Const SqlHostIP = """&t2&"""")
		end if
		Set RegEx = Nothing
		newfile t6&"Include/","Conn.asp",rule,"utf-8"
		echo "<p>配置文件保存成功"
		congigok=1
	end if
	
	if congigok=1 then
		success=1
		echo "<p class=""red"">网站安装成功。</p>"
		flushs
		moveFolder "../Admin","../"&t13
		newfile "","Install.lock","Powered By WangKaiCMS Copyright 2006-" & year(now()),"utf-8"
		application.contents.removeall()
	end if
	echo "            </div>" & vbcrlf
	echo "        </div>" & vbcrlf
	echo "        <div id=""step1_btn"">"
	if success>0 then
		echo "<button name=""noagree"" type=""button"" class=""home btn blue"" style=""margin-left:300px;"">返回网站</button>&nbsp;&nbsp;<button name=""noagree"" type=""button"" class=""admin btn blue"" config="""&t13&":Admin_Login:asp"">后台管理</button>"
	else
		echo "<button name=""noagree"" type=""button"" class=""pre btn blue"" style=""margin-left:300px;"">上一步</button>"
	end if
	echo "</div>" & vbcrlf
	echo "    </div>" & vbcrlf
	echo "    <div class=""m_foot""></div>" & vbcrlf
	echo "</div>" & vbcrlf
end sub
echo "</body>" & vbcrlf
echo "</html>" & vbcrlf
%>